|
6
|
How do I put a picture on the control's background
local oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.Picture = oStatusBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()
|
|
5
|
How do I change the control's foreground color
local oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.ForeColor = 0x787878
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()
|
|
4
|
How do I change the control's background color
local oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.BackColor = 0xc8c8c8
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()
|
|
3
|
How do I change the control's border, using your EBN files
local oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oStatusBar.Appearance = 16777216 /*0x1000000 | */
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()
|
|
2
|
How do I remove the control's border
local oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.Appearance = 0
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
oStatusBar.Format = "1,2,3,4,(5/6/7/8)"
oStatusBar.Debug = true
oStatusBar.EndUpdate()
|
|
1
|
How can I change the control's font
local f,oStatusBar
oStatusBar = form.EXSTATUSBARACTIVEXCONTROL1.nativeObject
oStatusBar.BeginUpdate()
oStatusBar.VisualAppearance.Add(4,"c:\exontrol\images\border.ebn")
oStatusBar.VisualAppearance.Add(5,"CP:4 1 1 -1 -1")
oStatusBar.BackColorPanels = 0x5000000
f = new OleAutoClient("StdFont")
f.Name = "Verdana"
f.Size = 12
oStatusBar.Font = f
oStatusBar.Format = "" + ["] + "static text" + ["] + "[fg=255][a=17],11,22,(33/44)"
oStatusBar.EndUpdate()
|